#include "hspda.as"
#include "hspext.as"

gosub *def_var_XY
gosub *def_var_RGB
gosub *def_var_char

screen 0,650,320

*begin
cls 1

goto *@f

*def_var_XY
var4input_size_X=100
var4input_size_Y=30

var4input_begin_X=10
var4input_begin_Y=5
var4input_end_X=90
var4input_end_Y=95
return

*@

mes "size X"
pos 110,0
input var4input_size_X,100,20
ID4input_size_X=cnt
pos 0,25
mes "size Y"
pos 110,25
input var4input_size_Y,100,20
ID4input_size_Y=cnt

pos 0,50
mes "͂X"
pos 110,50
input var4input_begin_X,100,20
ID4input_begin_X=cnt
pos 0,75
mes "͂Y"
pos 110,75
input var4input_begin_Y,100,20
ID4input_begin_Y=cnt

pos 0,100
mes "X"
pos 110,100
input var4input_end_X,100,20
ID4input_end_X=cnt
pos 0,125
mes "Y"
pos 110,125
input var4input_end_Y,100,20
ID4input_end_Y=cnt

goto *@f

*def_var_RGB
var4ip_frame_R=0
var4ip_frame_G=0
var4ip_frame_B=0
var4ip_back_R=255
var4ip_back_G=255
var4ip_back_B=255
return

*@

pos 0,150
mes "gFF"
pos 0,175
mes "R"
pos 0,200
input var4ip_frame_R,45,20
ID4ip_frame_R=stat
pos 50,175
mes "G"
pos 50,200
input var4ip_frame_G,45,20
ID4ip_frame_G=stat
pos 100,175
mes "B"
pos 100,200
input var4ip_frame_B,45,20
ID4ip_frame_B=stat


pos 0,225
mes "wiF"
pos 0,250

mes "R"
pos 0,275
input var4ip_back_R,45,20
ID4ip_back_R=stat

pos 50,250
mes "G"
pos 50,275
input var4ip_back_G,45,20
ID4ip_back_G=stat

pos 100,250
mes "B"
pos 100,275
input var4ip_back_B,45,20
ID4ip_back_B=stat

pos 220,0
mes ""
pos 220,25
input var4input_moji,210,20
ID4input_moji=cnt

pos 220,50
mes "̑傫"
pos 330,50
input var4input_moji_size,100,20
ID4input_moji_size=cnt

pos 220,75
chkbox "",mes_font_bold
pos 320,75
chkbox "C^bN",mes_font_italic

goto *@f
font
*def_var_char
var4input_moji="test"
var4input_moji_size=12
var4input_font_shurui="lr SVbN"
mes_font_bold=0
mes_font_italic=0
var4input_pos_X=20
var4input_pos_Y=10
var4ip_font_R=0
var4ip_font_G=0
var4ip_font_B=0

var4input_f_name="baz.bmp"

var4input4copy_begin_X=0
var4input4copy_end_X=100
return

*@
pos 220,100
mes "font̎"
input var4input_font_shurui,210,20
ID4input_font_shurui=stat
pos 220,140
mes "̈ʒu"

pos 220,165
mes "pos X"
pos 330,165
input var4input_pos_X,100,20
ID4input_pos_X=cnt

pos 220,190
mes "pos Y"
pos 330,190
input var4input_pos_Y,100,20
ID4input_pos_Y=cnt

pos 220,215
mes "F"

pos 220,240
mes "R"
pos 220,265
input var4ip_font_R,45,20
ID4ip_font_R=stat

pos 270,240
mes "G"
pos 270,265
input var4ip_font_G,45,20
ID4ip_font_G=stat

pos 320,240
mes "B"
pos 320,265
input var4ip_font_B,45,20
ID4ip_font_B=stat

//////////////////////////////////////

pos 440,0
button "MAKEP",*do_make_1
pos 510,0
button "MAKER",*do_make_3

pos 440,25
mes "FILE̖O"
pos 440,50
input var4input_f_name,210,20
ID4input_f_name=cnt

pos 440,75
button "SAVE",*do_bmpsave


pos 440,100
button "vsave",*do_vsave
pos 440,125
button "vload",*do_vload
button "sample",*do_vload_sample


;var4input4copy_begin_X=0
;var4input4copy_end_X=100
;mes "Rsyp X ͂"
;input var4input4copy_begin_X,210,20
;ID4input4copy_begin_X=cnt
;mes "Rsyp X "
;input var4input4copy_end_X,210,20
;ID4input4copy_end_X=cnt
stop
*l_cb_copy
;	gsel 2
	clipsetg
	stop
*do_bmpsave
	bmpsave var4input_f_name
	stop
*do_vsave
	vsave "tmp_M_B.dat"
	stop
*do_vload
	vload "tmp_M_B.dat"
	goto *begin
*do_vload_sample
	vload "sample_M_B.dat"
	goto *begin
*do_make_1
	screen 2,var4input_size_X,var4input_size_Y
	color var4ip_frame_R,var4ip_frame_G,var4ip_frame_B
	boxf 0,0,var4input_size_X,var4input_size_Y
	color var4ip_back_R,var4ip_back_G,var4ip_back_B
	boxf var4input_begin_X,var4input_begin_Y,var4input_end_X,var4input_end_Y
	
	pos var4input_pos_X,var4input_pos_Y
	color var4ip_font_R,var4ip_font_G,var4ip_font_B
	tmp_font=0
	if mes_font_bold==1:tmp_font+=1
	if mes_font_italic==1:tmp_font+=2
	font ""+var4input_font_shurui,var4input_moji_size,tmp_font
	mes ""+var4input_moji
;	pos 0,var4input_size_Y
;	objsize 210,30
;	button "Nbv{[hɃRs[",*l_cb_copy
	stop
*do_make_3
	screen 2,var4input_size_X*3,var4input_size_Y
	color var4ip_frame_R,var4ip_frame_G,var4ip_frame_B
	boxf 0,0,var4input_size_X,var4input_size_Y
	color var4ip_back_R,var4ip_back_G,var4ip_back_B
	boxf var4input_begin_X,var4input_begin_Y,var4input_end_X,var4input_end_Y
	
	pos var4input_pos_X,var4input_pos_Y
	color var4ip_font_R,var4ip_font_G,var4ip_font_B
	tmp_font=0
	if mes_font_bold==1:tmp_font+=1
	if mes_font_italic==1:tmp_font+=2
	font ""+var4input_font_shurui,var4input_moji_size,tmp_font
	mes ""+var4input_moji

	pos var4input_size_X,0
	gcopy 2,0,0,var4input_size_X,var4input_size_Y
	pos var4input_size_X*2,0
	gcopy 2,0,0,var4input_size_X,var4input_size_Y
;	pos 0,var4input_size_Y
;	objsize 210,30
;	button "Nbv{[hɃRs[",*l_cb_copy
	stop
*test
	stop